home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
graphic
/
chgle10.zip
/
SAMPLE1.GLE
< prev
next >
Wrap
Text File
|
1991-12-12
|
953b
|
75 lines
size 18 24
Set font psc
sub turn I
begin rotate I
set just right
set hei 0.7
text ╚╬ ╥Γ \;a
end rotate
end sub
sub Colour value$
set hei 0.8
rmove 0 -1
set color value$
text ▓╗ ═¼ ╗╥ ╢╚
end sub
amove 9 21
set hei 2
set just center
Begin Box Fill grey20 add 0.3
text ║║╫╓ GLE
End Box
Begin Box add 0.5
text ║║╫╓ GLE
End Box
set hei 0.5
set just left
amove 8 19
aline 12 19
Text ┐╞╤º╗µ═╝╚φ╝■
amove 2 15
Set hei 1
set just center
Begin rotate 90
Text ║║╫╓┐╔╥╘╚╬╥Γ│▀┤τ
End rotate
amove 5 15
text ┤╙
amove 7 15
text ╡╜
set hei 0.2
amove 6 15
text С
amove 12 12
set hei 8
text ┤≤
amove 13 7
For I=0 To 360 STEP 30
@turn I
next I
set lwidth 0.2
Circle 3.5
amove 5 10
Set lwidth 0.1
Begin box add 0.5
@colour "Grey90"
@colour "Grey80"
@colour "Grey70"
@colour "Grey60"
@colour "Grey50"
@colour "Grey40"
@colour "Grey30"
end box
amove 1 1
set color black
set hei 1
text └² 1